home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / zcd / nonsolosoft.lha / NonSoloSoft / Listino / SendQuestionario.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-27  |  1KB  |  52 lines
  1. /* SendSurvey.rexx - © 1997 Alessandro Zummo */
  2.  
  3. addr = 'solo3@chierinet.it'
  4. subj = 'Questionario NonSoLoSoft'
  5. file = 'ZCD:Anagrafica.txt'
  6.  
  7. /* !!! file: Serve il path completo! */
  8.  
  9. currentdir = pragma('DIR')
  10. address COMMAND
  11.  
  12. "assign ZCD:" currentdir
  13.  
  14. address REXX
  15.  
  16. error= 'Ehm..devi lanciare YAM prima di questo script!'
  17.  
  18.  
  19. IF SHOW('P','YAM') THEN
  20. DO
  21.         PRAGMA('S',10000)
  22.  
  23.     ADDRESS 'YAM'
  24.         MailWrite
  25.         WriteMailTo '"'addr'"'
  26.         WriteSubject '"'subj'"'
  27.         WriteLetter '"'file'"'
  28.  
  29.         /* Elimina le prossime 7 righe se non vuoi che ti venga mandato
  30.        automaticamente l'output di ShowConfig. Nel caso in cui tu voglia
  31.        che ti venga mandato, e' opportuno avvertire l'utente.
  32.     */
  33.  
  34.         IF EXISTS('SYS:Tools/ShowConfig') THEN
  35.         DO
  36.                 ADDRESS COMMAND 'SYS:Tools/ShowConfig >T:nss.tmp'
  37.                 WriteAttach '"T:nss.tmp"'
  38.         END
  39.  
  40.         EXIT
  41. END
  42.  
  43.  
  44. ERROR:
  45.  
  46. IF EXISTS('C:RequestChoice') THEN
  47.  ADDRESS COMMAND 'RequestChoice TITLE="SendSurvey.rexx" BODY="'error'" "Ok" >NIL:'
  48. ELSE
  49.  say error
  50.  
  51. EXIT
  52.